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EDITORIAL 


Queridos lectores: 

Los programas que hemos diseñado para este número los hemos 
enfocado en dos vertientes.' Una educacional para que cada vez co¬ 
nozcas mejor tu aparato, y la otra para que al mismo tiempo te resul¬ 
te divertido. 

Por lo que respecta a la revista, como verás, algunos de los pro¬ 
gramas los hemos listado. Esto es porque suponemos que el lector 
tiene ya cierto conocimiento de las órdenes principales de su apara¬ 
to* Intentamos de esta forma que el usuario se familiarice, mejor sus 
conocimientos y al mismo tiempo se divierta. 

Ninguno de Jos programas es excesivamente largo. Ya iremos am¬ 
pliándolos progresivamente. 

También hemos intentado que la mayoría de ellos tengan un ele¬ 
mento de juego, para animaros a competir con la máquina. 

Por otra parte, cuentas con una página de bibliografía, con las últi¬ 
mas novedades del mercado editorial sobre tu ordenador. 

Hasta el próximo mes, que te diviertas. 
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1 IF INKEY®< >“" THEN GO TQ 9999 

2 CLEAR 64255: LOAD '"'CODE 

3 POKE 23607,250: PRINT AT 10, 1.0 5 * PARA LA 
5 EORDER 7: PAPER 7i 1NK O: CLS 


CINTA": PAUSE 200 


10 LET AS="lmpqm 
t 7 pqro r. t n t n 
dddd ¡ ?i 

12 LET B$=“ lm 

y 1 m 

fjFjC 

40 LET P=OI 
45 LEI CO-O 
50 LET X=17 
LET AV-0 


p q 1 m 
t n z 


y y 1 tft 


lpqm 
n zzz 

1 ro 

yyy 


t pqro 
pqz t 

lm 

Imy 


rsrs t rs rs rt 
t n t n pq t 


t pqz 

pqm 


lm n t z n 


rsrs rs 


Irny 


lm 


1 m 


LET PA-0 


ÓO 

30 

82 

35 

90 

92 


PRINT PAPER 4?AT 13,0 m i,,ti 
PAPER 8 
LET h*=" j H 
LET N=138 

LET c-i: LET i*= ta def* 

100 P R IKT — AT - x,14jl » ;AT: 

101 PRINT AT 17,0? (N TO N+31);AT XSjOjASíN TO N+31) 

102 LET C=C + 1; IF 02 THEN LET C=1 
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POKE 04381,56! POKE 64332,16: POKE 6 
: POKE 64381,136: POKE 64382,146: PO 


103 IF C=1 THEN BEEP .002,0: LET I*=‘de “ : 

4333,254 

104 IF C=2 THEN BEEP .002,-20: LET I6=" e-f' 

KE 64833,124 

110 IF INKÉY*="I" THEN LET H*="ghi": LET N=N-l: IF N<1 THEN LET N=1 

120 IF INKEY*="P* THEN LET h*="abc“: LET N=N-t-l : IF N>LEN A*-32 THEN LET N=N-1 

128 IF INKEY*="2* THEN PRINT AT X,14i" “: LET X=X+l: IF X>17 THEN LET X=17 

129 IF IMKEY#»" Gi “ THEN PRINT AT X+l.lAi* *: LET X = X-l: IF X<3 THEN LET X-=3 

130 LET XS=A*(N+14)¡ LET Y*=A*(N +15) ; LET Z*=AS(N+16> 

13 1 IF x*="d‘ QR y g=“d“ OR z*="-f" THEN 00 TO 4000 

132 IF X<16 THEN 60 TO 136 

133 IF XSO-n" AND XS< >" " THEN 60 TO 5000 

134 IF AND ySO" " THEN GO TO 5000 

135 IF z*<>"rt* AND zS<>‘ “ THEN GQ TO 5000 

136 IF X=17 AND Y*="n" THEN BEEP 1/50,30: LET P=P+10: LET CO=CO+i: LET AS1N+15) 

— H 4 

140 IF AV=0 THEN IF RND>.95 THEN LET XA-3+INT <RND*10>: LET YA=*0: LET AV=1 
145 IF AV=1 THEN 60 SUB 2000 
150 IF INKEYS=*M" THEN GO SUB 2500 
160" IF _ Y*=*t ,r THEN GO SUB 4500 
200 60 TO 100 
2000 PRINT AT XA,YA!“ 

2010 LET YA=YA+l: IF YA>30 THEN LET AV=0: RETURN 

2015 IF XA>X+1 THEN LET XA=XA-,5 

2016 IF XAÍX+l THEN LET XA=XA+.5 
2020 PRINT AT XA,YA i"rs' 


2025 IF YA>13 AND YA<16 THEN IF XA=X OR XA-X+1 THEN 60 TO 5000 
2030 RETURN 

2500 IF H$*"abc" THEN PRINT AT x+l,l?;*k kkkkkkk": IF AY=1 THEN IF INT (XA 
-.5)*x THEN IF ya>16 THEN LET P=P+50: PRINT AT xa, ya; ”xx": BEEP 1/100,0: LET av= 
O 

2510 IF H*=“ghi“ THEN PRINT AT x+l,0»*k k k k k k k *: IF AV=1 THEN IF INT (XA-. 
5)=x THEN IF ya<14 THEN LET P=P*50: PRINT AT xa,ya¡"xx“: BEEP 1/100,0: LET av=0 
2520 BEEP .001,30: PRINT AT x-t-1,0,,: RETURN 
4000 IF X<=16 THEN 60 TO 136 


4001 PRINT AT X, 14; "-fef": LET hS=" j *: PRINT AT x + l,14;h* 

4002 IF C0>0 THEN FOR J=ITO'CO: LET PA=P"A+1 ¡“LET P=P+25: BEEP 1/50,30: PAUSE 5: 
NEXT J: LET C0»0 

4005 IF PA>=16 THEN GO TO 4700 
4010 GO TO 136 

4500 LET D=3+INT IRND*13>: PRINT AT d,15;*x": BEEP .001,20 
4510 IF D=X OR D=X+T~ THEN BE£P~r®77-10: GO TO 5000 
4520 BEEP .005,0: PRINT AT d,15f" *: RETURN 


4700 PRINT AT- 10,9; "LO CONSEGUISTES": LET P = P + 500: FOR A=-40 TO 60 STEP 3: BEEP 
.05,20-A; BEEP .05,A: NEXT A 
4710 GO TO 6000 

5000 PRINT AT X,13í" xxx “ í AT x + 1, I3i *xxxxx" ; AT X+2, 13i " xxxxx “ ; AT X*3,13¡ PAPER 
85 " PAPER S; " “ 

5010 POR A=1 TO 20: PRINT AT X-RND*5+RNL*6,16-RND*5+RND*5; PAPER BEEP 1/1 

00,RND*20-30: NEXT A 


6000 PRINT AT ó,Bs"TU PUNTUACION:“;P 
0 6009 INPUT “OTRA PARTIDA (S/N): 1 *; LINE Gí 
6010 IF S*="S" THEN RUN 5 
6020 IF G*="N" THEN RANDOMIZE USR O 
0 9993 LOAD *"M“ ; 1 ; - trus *SCREENS¡ 

9999 SA'JE “ TRUENO "CODE 1Ó3S4,PEEK 23627+256*PEEK 23628-16382: GO TO 1 
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10 REM * PRIMITIVA * AGD * 

20 IF INKEY®< >"" THEN GO TO 9999 

30 PRINT AT 10,10 i "PARA LA CINTA": PAUSE 200: CLS 

40 GD SUB 9100: PRINT ’" TIPO S D E APUESTAS A E LEGI R:* 1 1 *_ 

SO RESTORE 1 FOR A=6 TO 12: RÉAD B: LÉT AS=STR$ A+” MARCAS .. 
*25t~+‘“" PTS. *T"~PR I NT~TAB - ró-LEN'AS72pASI PRINT ; NEXT A ' 

ÓO INPUT " CUANTAS MARCAS? ”»N 

70 IF N<6 OR N>12 THEN BEEP 1,-10: GO TO 60 
30 GO SUB 9100 

90 PRINT ' ’ ?????????????????????? 701 08 15 22 29 36 43? 

? ?02 09 16 23 30 37 44? ? 

? ?Q3 10 17 24 31 38 45? ? ? 



“tSTRS (B 


?0 


i 11 1S 25 32 39 4Ó? 
-^47? - ?~ 


? ?05 12 19 26 33 40 

?06 I7T~2CT‘ 27 34 4~I 4S? 7 ~ 


? ?07 14 21 23 35 42 49? 

???? “ 

95 PRINT AT 5,23í“NUMEROS:“ 

9S RESTORE 

100 FOR A=ó TO 13: PRINT INK 2i OVÉR 1;AT A,li“ 

110 P IN—Z4-4-9-)— 

120 FOR M=1 TO N ___ 

125 IF N>5 THEN READ P 

130 LET NN = 1 + INT (RND#49): IF Z(NN)»1 THEN GO TO 130 
140 LET 2(NN)=1 

150 LET N2=INT (NN/7): LET N1=NN- <N2'*7> 

155 IF NI=0 THEN LET N2=N2-i: LET Nl=7 

160 PRINT AT 4+(Nl*2) , li-(N2*3) ¡ OVER li INK 5;"??" 

1 6 S IF - W K-BO- THEN PR-INT AT- ó + M, 2á i "0 “?NN— 

16 8 IF NN >9 THEN. PR1N.3L AT á± M.» 26 i NN— - 

170 PAUSE 30: BEEP 1/50,RND*30 
200 NEXT M 

210 PRINT AT 21,Oí"PRECIO DEL BOLETO: ”;F*25;" PTS." 

300 INPUT ■ OTRO BOLETO (S/N>: “i LINE AS 

310 IF AS="S" OR aS="s" THEN RUN 40 

320 IF aS="n" OR aS=“N" THEN RANDOMIZE USR O 


r? ? v*? 7 ? "? ? ? ? ? ? ■? ? ? ? 


NEXT A 


41 
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330 GÜ TÜ 300 
BOGO STOP 

9Q00 DATA 1,7 t 20,S4 t 210,4áZ,924 _ 

9100 CLS ¡ PRINT 11 ??????????????? 


t i y a 


p r í m r 

RETURN 

9900 BORDER O: PAPER O: IHK 7\ CLS : LOAD *"M"¡1¡"pris"SCREENS 

9999 SAVE “PRIMITIVA“CODE 1Ó334,PEEK 23627+2564FEEK 2362S-16382: GO TO 10 



»i y ff^t y 

4,- r»- - t lTi -| * 

^'*^5 Jr-*- 

MiJ¡l T-^ Mh.» - ■ ■ 

TT.-^y^VT " 






_ 10 REM *** C Q P Y ■***_ _ _ _ 

20 BORDER Oí PAPER O: INK 7 \ CLEftR 39999: LOAD “*CODE 
50 LO AD "“""S CREEN ^ I"*’UG ~SUB TOO 

60 INPUT “LOAD SAVE COPY I NV RUTINA:"; LINE a$ 

65 IF a5=* l 11 THEN LOAD ""SCREENS 

66 IF s*=“s" THEN INPUT "NOMBRE:“f LINE bs: SAVE bSSCREENS 
68 IF a$=“r" THEN GO SUB 100 

70 IF a$=»i'' THEN FOR a=0 TO 21: PRINT INK 8; PAPER Si FLASH 8i BRIGHT 8¡ OVER 
1; AT a. O; 11 ???????????? ???????????????????? **; NEXT a 

72 IF aS="c" THEN COPV 

100 FOR x=0 TO 21: FOR y=O TO 31: LET c=ATTR <x,y> 

110 IF c >63 THEN LET C = C-64: GO TO 110 

120 LET p=INT Ic/3): LET t=c-(p*8i: LET p=40100+8*p: LET t=40100+8*t 
130 LET p2=INT (p/25ó>: LET p1=p-(p2*Z5ó) 

140 LET 12=1NT ít/256): LET t1=t-{t2*25é> 


-4-30—P-©KE-4-GG0-?-,t4:-- POKE- 4©QOS-,-t-2: -POKE 400-10 r pl l PQKE-4aQ4-,L,.p2— 


170 

NEXT ; 

r? k y > - r\r 

/I PRINT AT 

i a *_ c. 

X ,0; INK 

w ^ n -7 u sj 

OÍ PAPER 7 S OVER 1í , , : 

NEXT x: BORDER 7: RETURN 

9000 

SAVE ' 

'COPY" LINE 

1: SAVE 

" CODE " CODE 40000,200 
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ANTONIO GARCIA OGDO. 



RECORRE CON TU 
FORHULB i EL LEGEN¬ 
DARIO CIRCUITO DE 
L E H fi N S 
TECLAS : O ! ■§• I!<= 

z :■& P !t=*> 




??? ? LEMANS ? ? 1935 ? 

? ANTONIO GARCIA ? ? DELGADO ? 

??“??? 

® 11 IF INKEYS="g" THEN GO TO 9999 

12 CLS : PRINT AT 10,10;"PARA LA CINTA": PAUSE 200 
15 ~LET r =999 

0 _20 BORDER O: POKE 23693,56: CLS : INK 2: PLOT 0,0: DRAU 0,175: DRAW 255,0: DRA 

U 0,-175: DRAU -255,0 

30 PLOT 25,2S: DRAW 0,l2S: DRAW 50,0: DRAW 0,-50: DRAW 90,0: DRAW 0,50: DRAW ó 
5,0 

W 40 PLOT 255,125: DRAW -65,0: DRAW 0,-50: DRAW -140,0: DRAU 0,55 

50 PLOT 100,175: DRAW 0,-50: DRAW 40,0 

^ 60 PLOT 125,150! DRAW 50,0 

W -- 80 PLOT 25,50: DRAW 190,0: DRAW 0,50: DRAW 15,0: DRAW 0,-75: DRAW -205,0 - 

._90 EOR a=25 TO _230: PLOT a r 2Sl DRAW 0,251 NEXT-a--- 

105 INK O 

0 107 PRINT AT 16,1Ó¡" TIEMPO 

108 PRINT AT 16,45* RECORD 

109 PRINT AT 17,S;R 

a 120 RESTORE : FOR v=U3R “a" TO USR “e"+7: READ vv: POKE v,vv: NEXT v 
^ 130 DATA BIN 00011000.BIN 00111100,BIN 11111111,BIN 00111100,BIN 00111100,BIN 1 

1111111,BIN 1111lili,BTN'00111100 

140 DATA BIN 01100100,BIN 01100100,BIN 11111110,BIN 11111111,BIN 11111111,BIN 1 

• 1111110,BIN 01100100,BIN 01100100 

144 DATA BIN OOllllOO,BIN 11111111,BIN 11111111,BIN 00111100,BIN 00I11100,BIN 1 
1111111,BIN 00111100,BIN 00011000 

0 146 DATA BIN OOIOOHO.BIN OOIOOllO.BIN 01111111,BIN 1I111111,BIN llliilil.BIN O 

1111111,BIN O0I00110.BIN 00100110 
147 DATA O,60, 126,126,126, 126,60,0_ 
a 150 LET a=20: LET b=15: LET t=0 
W —160 LET a*='?' 

170 PRINT AT 16,14; PAPER 0¡"????": PAUSE 43: FOR v=13 TO 16: PRINT ERIGHT 8; P 
APER 3;AT 16,v¡ OVER 1;" "! BEEP .5,v: NEXT v: BEEP .7,30 

# 200 PRINT AT a,b;aS 




10 REM 
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201 PRINT AT 17,21 i t 

202 LET t=t+l 

205 PRINT BRIGHT 1J AT Z0,léCñ" 

206 PRINT BRIGHT 1 ¡ AT 2 1 ,16;'ñ‘ 

207 PRINT BRIGHT 15 AT 19,16;■ñ , '; OVER 1; AT 21,16¡ 

210 IF INKEYS= 11 i “ THEN LET b=b-i: PRINT AT a, b + I ! CET ‘aJ= 

220 IF INKEYs="p * THEN LET b=b+l: PRINT AT a,b-l¡“ * : LET 

230 IF INKEYS="z" THEN LET a=a+l: PRINT AT a-l.bi' LET ai="?" 

240 IF INKEY®= 11 q “ THEN LET a=a-i; PRINT AT a+l,b¡“ “ : LET a*= 1 *?" 

250 IF a>21 THEN LET a=21 
260 IF a<O THEN LET a=0 

270 IF b >31 THEN LET B»J1 _ 

280 IF b<O THEN LET b=0 

300 IF ATTR (a,b)=58 THEN FOR c-32 TQ 127: OUT 254"i'cr _ PRINT OVER - 1 i AT a.bfCHR* 

cj NEXT c: BORDER O: BRIGHT O: BEEP 1/2,-10: PAUSE 50! GO TO 2010 

310 IF ATTR (a,b)=120 THEN IF t>140 THEN FOR j=l TO 10: FOR k=Q TO 7: BEEP 1/10 

0,k: PRINT INK k ¡ AT 20,5¡ “META ! ! ! ! 11 í BEEP 1/200, j: NEXT k: NEXT j: FOR N = 1 TO 10 

O: NEXT N: GO TO 2000 
400 BEEP 0.002,10: BEEP 0.002,15 
SOO _GO TO 20 0 
2000 IF t< r THEN LET r=t 
2010 FRINT Mí"OTRA VEZ? (S/N) u 

2020 PAUSE 43: BEEP 1/50,30: IF INKEY*="s" THEN GO TO 20 
2030 IF INKEY*="r." THEN RANDOMIZE USR O 
2040 GO TO 2020 

9000 BORDER Oi PAPER O: INK 7\ CLS : LOAD *“m",1¡“1ems"SCREEN® 

9999 SAVE 11 LEMANS"CODE 16384, PEEK 23ó27+25ó*PEEK 23628-16332: GO TO 10 



51 HO TEHIfiS UH 
RELÜÜ CON OUE ADOR- 
Kfift EL SALON, AQUI 
TIENES ESTE t OUE 
NUESTRA Lft HORA 
ANALOGICA V DIGITAL 








1 .IF INKEY*="9” THEN GO TO 9999 # 

2 POKE 23693,71: BORDER O: CLS : PRINT AT 10,i0;"PARA LA CINTA": PAUSE 200: C 
LS 

10 CIRCLE 127,87,4: CIRCLE 127,87,41: CIRCLE 127,87,40: CIRCLE 127,37,35: FOR £ 
a =0 TO 2*PI STEP PI/6: LET x=SIN a*40: LET y=CQS a*4C>: PLOT 127 + x. 37+y: DRAU -*/ 
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2 ,-y/S: NEXT & 

15 INK 3! PLOT 75,113! DRAW 0,-80: DRAM 105,0: DRAW 0,80 

16 PLOT 72,110: DRAW 55,55! DRAW 55,-55: DRAW 2,2: DRAW -57,57: DRAW -■ 
DRAW 2,-2 

18 INK 7 

-20 INPÜT—"TTCÍFTA i I — i2 > : H ; H": ITTPOT "MINUTO ÍO-’&OÍ : “ ! M 

30 LET S=0 

90 GO SUB 1000: GO SUB 2000: GO SUB 3000 
100 PAUSE 40: GO SUB 3010: LET S=S+1 

110 1F S- ó O THEN LET S=0: GG SUB 2010: LET M=M+1! GO SUB 2000 

120 IF M> = 60 THEN LET M=0: GO SUB 1010: LET H=H+i: BEEP 1/50,30: GO SUB 

130 IF H > = 13 THEN LET H=i - -- 

140 GO SUB 3000 

I ?0 PRINT AT i 9,12 jTTpT " J N i" : “ í 3 i " " 

200 GO TO 100 

1000 LET xh = 24*SrIN íh#0.523ó): LEI yh=24#C0S (h#0*523ó) 

1010 PLOT OVER i; 127,87: DRAW OVER ijxh,yh 
1020 RETURN 

2000 LET >íTrt=30#SlN tm*0.10472): LET ym=30*C0S (m*0*10472) 

2010 PLOT-OVER 11127,87! DRAW OVER i;xiry,ym: RETURN 

3000 LET x3=35*SIN l S*0.10472); LET yS=35*CQS ÍS*Ü.i0472) 

3010 PLOT OVER 1;127,67: DRAW OVER 1 J xS,yS: RETURN 

9000 BOEDER O: PAPER O! INK 71 CLS 1 LOAD * “rn " i 1 i " 1 s " SCREENí 

9999 SAVE 11 RELOJ 14 CGDE 16334, PEEK 23627+25ó#FEEK 23626-16382: GO Tü 1 





CUBILETES 

H TON I Q G ARCIft &G E> O ■ 

IMTEHTfl DESCUBRIR 
|_ñ BQL.fi QUE TÜ ZH 
SPECTRUH HA ESCÜN- 
&IDD BAGO ÜHO S>E 
LOS TRES CUBILETES. 
CARGANDO 




1 IF INKEY*<>"‘‘ THEN GO TO 9999 

2 CLS : PRINT AT 10, 10; "PARA LA CINTA' 1 : PAUSE 200: GO SUB 9000 
7 PAPER 4: BORDER 4: INK i: CLS 

10 PRINT AT 3,7;*’???": PRINT AT 9,7;"?i?“: PRINT AT 10,7}"???" 

20 PRINT AT 8, 14; "???■■ : PRINT AT 9 > 14¡"?2?”: PRINT AT 10,14;“???" 
- 50 PRINT AT 3,21 ¡ "???” : PRINT AT 9,21 } » ! PRINT AT 10,21 ; *’??? " 

40 PAUSE 100 ___._ 

50 PRIIÜJ- AT 8,14}" ’’: PRINT AT 9,14;" " : PRINT AT 10,14;” 

¿O PRINT AT 6,14;’’???“: PRINT AT 7,14;"?2?": PRINT AT S,14i"???’' 
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65 INK 2 

70 PRINT AT 9,15;*?" 

75 INK 1 
30 PAUSE 75 

35 PRINT AT ó,14;" “: PRINT AT 7,14;" “! PRINT AT 8,14}” 

90 PRINT AT Srr4l “ ? ?? “ í “ PRINT~AT 9yl4i J, T2? “ í—^IWT^-AT-^C l^OíT; 

—lOO—P AUSE_5.CL_ __ 

105 INK 0 

110 PRINT AT 14,7;"ESPERA UN MOMENTO" 

115 PAUSE 100: PRINT AT 14,7;" 

120 PRINT AT 14,5;"VOY A CAMBIAR LA BOLA" 

125 PAUSE 100: PRINT AT 14,5;" PRINT AT 14,7;”EST0Y CA 

MBIANDOLA" 

—L5Q -RCM X X ttC AWB-Í Q- DE—BOL A***___ _ _ _ ___ 

— 1.60 FOR A= 1 TO 20: BEEP .Q9,RND*15: PAUSE 1+RND*20: NEXT A 
162 PRINT AT 14,7¡“ PRINT AT 14,9;“HE ACABADO"! PAUSE 

100 

165 PRINT AT 14,7;" “1 PRINT AT 14,3;"INTENTA ENCONTRAR LA B 

OLA'* 

170 LET N=INT (RND*3) 

130' INK 1 

200 IF INKEYS~“ 1 “ THEN LET m=OI PRINT AT 8,74-"- jli pb t mt AT 9, 7: » " 5 PRINT A 

J 10 ,74-"-!L!—PR INT AT 6,7; ■???■*: PRINT AT 7,7 ;"?l?"i PRINT AT 3,7;"???“ : GO TO 

500 

210 IF INKEY¥="2" THEN LET M=l: PRINT AT 8,14;“ "1 PRINT AT 9,14;" PRINT 

AT 10,14;" PRINT AT 6,14;"???": PRINT AT 7,14; "?27": PRINT AT 8,14;"???“: 

GO TO 500 

220 IF INKEYS="3" THEN LET m-2í PRINT AT 8,21;" PRINT AT 9,21," PRINT 

AT 10,21 ;"_ PRINT AT 6,21!"???": PRINT AT 7,21¡ "?3?”: PRINT AT 8,21;"???": 

GO TO 500 

' 430 G O TO 1 7 0 ~--—---—- 

500 IF m=n THEN GO TO 7000 
505 INK O 

510 IF mOr. THEN BEEP 1,-10: BEEP 1,-40: PRINT AT 14,3;" 

PRINT AT 14,11;"FALLASTE" 

550 PAUSE 5! PAUSE 100 

_ 5SB TNK 1 __ 

¿00 PRINT AT 3,7¡ ” “ : PRINT AT 9,7¡" " : PRINT £T — fCT, 7í " P R IN T " A T— 

???"PRTNT - AT“ 7 77T""?T?'"~: PRTNTnAT - 8i'7 ;-"-?-??-“— 

610 PRINT AT 3,14;'* ": PRINT AT 9,14;" PRINT AT 10,14;" ■; PRINT AT ó, 

14;"???": PRINT AT 7,14;“?2?“: PRINT AT 3,14;“???" 

620 PRINT AT 3,21;" ": PRINT AT 9,21;" PRINT AT 10,21;" PRINT AT ó, 

21j"???": PRINT AT 7,21;"?3?“: PRINT AT 8,21í"???“ 

900 INK 2: PRINT AT 9,(3 AND N=0)+(15 AND N=l)+(22 AND N=2>;"?": INK 2 

—lOOO—GS—TO—3000-- 

7000 INK O: PRINT AT 14,3¡“_ ": PRINT AT i4,10 i "ACERTÁ 

STE": INK 1 -— - —--— 

7005 INK 2: PRINT AT 9,(8 AND N=0)+Í15 AND N=l)+(22 AND N=2)¡"?“: INK 1 
7007 BEEP .5,20: BEEP .5,25: BEEP .5,30: BEEP .5,32: BEEP .5,15 
7010 PAUSE i: PAUSE 75: GD TP ¿00 

3000 INK O! PRINT AT 14,3;“ PRINT AT 14,3;"DESEAS 

PROBAR OTRA VEZ <S/N>" 

—3<Mr&—BF —T-NKF-¥4g=" c " T. HFM OÍ S : BIIM ^ _ ____ 

8020 TP INKEY$=“n" THEN RANDDMI2E USR O: PRINT AT 10,5;“PULSA PLAY EN EL CASSETT 
E “ 

3030 GO TO 3010 

9000 DATA 3,15,30,¿O,61,127,127,127,255,255,63,127,255,255,255,255 
9010 DATA 192,240,243,252,252,254,254,254 
9020 DATA ¿O,73,159,191,255,255,126,¿O 

9030 RESTORE 9000: FOR z=USR "a" TO USR “e“-Í: READ zz! POKE z,zz: NEXT z: RETUR 

—99-00- -SOR PER- -04.-PAPE R — 0 4- INK—7.: CLS ;_L OAD ♦ » M " i 1; ■ eubs " SCREEN* 

9999 SAVE "CUBILETES"CODE 16384,PEEK 23627+25ó*PEEK 23623-16332: GO TO 1 


m 
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ABATA DIEZ CflZHS 
EHEHIGOS ANTES DE 
QUE SE TE ACABE EL 
COMBUSTIBLE 

teclas s o I :4> 

o i gamas zs-g- P:^ 



1 IF IMKEY$< >"" THEN GO SUB 9999 

2 CLS ¡ PRINT AT 10,10!"PARA LA CINTA' 
40 LET e=101 LET t=250: GO TO 50 


PAUSE 200 




50 GO SUB 5000 
60 LET t=Or tET alt=3000: LET ri = 79: LET i=0! LET * 


£RN 


D*31 ) 

100 

IF INKEYS““q" 

THEN 

LEI 

n=n-S: 

LET x=x+l: LET 

alt=ait+lüO; 

LET 


102 

PRINT OVER 0; 

PAPER 

: o; 

INK 7 í 

AT 15,12!"FUEL:“ 

i Ti H H 



103 

GO SUB 4000 








104 

BEEP -002,0 








_1.05, 

IF. LNKEY*= " 2L" _ 

THEN 

LET 

n = n + 3 : 

LET x=x-l: LET 

alt=alt-10O: 

LET 

t~0 

110 

IF INKEYS= u i u 

THEN 

LET 

i=i^s: 

LET y=y+l¡ LET 

í = l 



115 

IF INKEY$= M p M 

THEN 

LET 

“i = í+S: 

LET y=y=T: LET" 

f =2 



117 

LET t = t-1: IF 

O 

1! 

V 

+> 

THEN 

00 TO 

6000 




120 

BEEP ,002,10 







122 

GO SUB 1000 








132 

GG SUB 2000 








140 

IF INKEY$= H o" 

THEN 

GO SUB 3000 




„1.45 . 

IF alt=Q THEN 

GO. TG 

1 7000 






146 BEEP .002,20 
”150 GO SUB iÓOO! GO SUB 2010 


200 GO TO 100 
1000 REM HarÍ 20 rite 
1005 INK 4: OVER 1 

1010 IF (n+(ABS i)) >175 THEN LET n=n-3: LET i = i +(8*1 ( i€0) “í i >0» ) 1 : 
1015 IF ( ri - {ABS ii)<56 THEN LET n=n+3: LET i = i + (8* ( ( i <0) - ( i >0) » ) ! 
1020 PLOT 127, r.: DRAW—127, - i i PLOT 12 7, n: DRAM 127, i 
1025 INK O 

1100 RETURN 
2000 REM Aviori 

2005 LET x=x+INT (RND*3)+INT (RND*-1) 

2006 LET y=y+INT ¡RND*3)+INT <RND*-1) 

2010 OVER l: IF x<l THEN RETURN 
2012 IF x >14 THEN RETURN 


GO TO 1010 
GO TO 1015 


© 
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2014 IF y<l THEN RETURN 
2016 IF y >30 THEN RETURN 

2020—LET xn=_127 + . < i <y-16) *B> /Í O J _ 

2022 LET yr=*25 + ( l(3-x)*3) /10> 

2030 PLOT xr f yr: DRAW 2,<i/20) 

2035 GO SUB 2100 
2040 RETURN 

2110 IF f=0 THEN PRINT AT x,y-lS''???“ 

2115 IF -f = i THEN PRINT AT x , y ¡ * ?*■ ; AT x-1,y-1¡;AT x+l,y+l¡“?" 

2120 IF r-2 THEN PRINT AT x , y ; "?" ; AT x -1, y +1 i " ? " ¡ AT x +1, y- 1}" 

-2-1-30—RETÜRN— 

3000 _ REM _ Disparn ___ _ _ 

3010 PLOT 90,56: DRAW 33,38: PLOT 167,56: DRAW -33,38: BEEP 1/100,30 
3015 POR h=iO TO 12: IF x=h AND y>13 THEN IF y<19 THEN GO TO 3200 
3017 NEXT h 

3020 PLOT 90,56: DRAW 38,38: PLOT 167,56: DRAW -38,38 
3100 RETURN 

3200 PLOT 90,56: DRAW 38,38: PLOT 167,56: DRAW -38,38 

3201 LET xl=(y*3)+4: LET y1=t(21-x)*3)+4: FOR u=20 TO 60 STEP 4: GO SUB 1000 

3205. B EEP 1/200,0 __ 

3206 INK 2 

3210 PLOT xl,yl: DRAW RND*u,RND*u 

3211 PLOT x1,y 1: DRAW RND*-u,RND*u 

3212 PLOT x1,y1: DRAW RND*-u/2,RND*-u/2 

3213 PLOT x 1 , y 1 : DRAW RND*u/2, RND*-u/2 

3220 NEXT u .1 LET e=e-i: IF *< 1 THEN GO TO 6500 

3225 CLS : PRINT AT 10, 10 i 11 BUEN DISPARO» ¡AT 12,10¡"S0L0 QUEDAN " ¡ E: BEEP 1/50,30 
~T FOR — z=l — TO — TS-Cü — NE-XT — z — 

3230 GO TO 50 

4000 IF RND> > 5 THEN PRINT PAPER 3¡ INK 35 OVER 0¡AT 18 ( lli"?“ 

4005 IF RND>.5 THEN PRINT PAPER 8; INK 8; OVER OJAT 18,201“?" 



A remitir a SOFT-SPECTRUM C I. Bailéh. 20. 1? Izda.'28005 Madrid 


Deseo suscribirme a los 11 n. os de la revista Soft-spectrum por sólo 2.500 pts. 

EJ Impone lo haré efectivo: 

□ Por giro poeta! n * ........................ 

□ Por talón nominativo adjunto. 

□ Contra reembolso a la recepción del primer ejemplar, más gastos de envío. 

Deseo suscribirme a partir dei n.*.... (inclusive). 


Nombre y apellidos: 

Domicilio: .. 

Ciudad: ... 

Fecha ..... 



..Teléfono 
Firma. 
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FOR z=ló TO 20: PRINT PAPER 3:AT z, 


4010 IF RND<.S THEN PRIHT PAPER Sí INK 3; OVER 0;AT 13,11;"?" 

4015 IF RNDÍ.5 THEN PRINT PAPER Si INK Si OVER 0;AT IB,20;"?" 

—4020—R-E-T-URN— 

5000 REM dibujo cabina 

5010 BORDER 7: PAPER 7: INK O; CLS 

5020 FOR 2 = 16 TO 20: PRINT AT 2,24-2;“?" ¡ PAPER 3 5 *’? ” t AT Z,Z + 6;"?" j PAPER 7}“?~: 
NEXT z 

5022 PRINT AT 15,9;“??????????????" 

5024 PRINT AT 21,4; PAPER 3; n ? 

5025 LET i=0: LET aí=" 

“26-z ? a$ : < 1 TO l (z-4 5 + ÍTTT LET í=TTT“i NEX1 z “ . 

5030 PRI-N-T PAPER-6» INK 1; AT 1-7,-144 "????" i AT 13, 14i “????■ i AT 19,14¡ "????" 5 AT 20,. 
14;"????" 

5032 PRINT PAPER 5i INK 1 i AT 17,105"???"; PAPER 2;AT 13,10 i"???“$AT 19,105“???“ 

5034 PRINT PAPER 25 INK 1 ¡ AT 17,19 i “???“5AT 13,19¡ PAPER 4;“???“;AT 19,195“???“ 

5036 PRINT PAPER 2¡ INK 1 ¡ AT 19,7;“??"¡ PAPER 5¡AT 20,75 "??“ 

5038 PRINT PAPER 2! INK 15AT 19,235"??"; PAPER 55AT 20,23;“??“ 

5050 RETURN 

6000 BEEP 2,-30: BORDER 7T INK O: CLS \ PRINT AT 9,4;“SE TE ACABO EL COMBUSTIBLE 
5-AT 12, 11 5 “ ESTAS MUERTO " 

6100 GO TO 7500 

6500 BORDER 7: CLS : PRINT AT 10,3;"LO CONSEGUISTES”jAT 12,1$"HAS OBTENIDO EL AG 
UILA DORADA" 

6505 FOR a=-40 TO 60 STEP 3: BEEP 1/50,a: NEXT a 
6510 GO TO 7500 

7000 BEEP 2,-10: BORDER 7\ CLS : PRINT AT 10,15“TE HAS ESTRELLADO CON EL SUELO" 
“7500 PAUSE 2: PAUSE 400: INPUT "OTRA PARTIDA T5/NT; "T LINE Ai 

^7501 — IF—Ai= '' s“ THEN — RUN — 5 - --- 

7502 IF AS=“n“ THEN RANDOMZE USR O 

7503 GO TO 7500 

9900 BORDER OÍ PAPER O: INK 7: CLS : LOAD *“M" i 1j "cazs"SCREENS 
9999 SAVE “CAZA"CCDE 16384,PEEK 23627+25Ó*PEEK 23623-16332: 60 TO 1 
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HHGEL GRRCXft DELGADO 




REUHE TOGAS TUS 
FUERZAS PARA LEUAH - 
TAR LOS PESOS QUE 
TE INDIQUE EL JURA¬ 
DO OFICAL.PARA ELLO 
USA CUALQUIER TECLA 



1 PRINT AT 20,Oí: LOAD ""CODE 64256 

2 IF INKEYS="g“ THEN GO TO 9999 

3 LET R = 100: PRINT AT 10, 10; PARA LA CINTA": PAUSE 200 
10 POKE 23607,250 

20 30RDER 5: PAPER 7: INK O: CLS : PAPER 3^ BRIGHT 5: INK Sí PRINT AT 19,0} PA 
PER 4,,,,,, 

21 F O R N=1 5 T O 1 7: PRINT’ AT N,05 BRIGHT 1,’ N EXT - N 

22 PRINT AT 10,0; PAPER 4,.. 

23 PRINT AT 0,0}" F,????????????????????????e &?????????????????????????? 

S p*77'?7 l ? 777777?p7'p j p , p?77 j p77777970 f^?777777^ , ??77 J ^'^^77^' ;,J:> ' ? ^ Ji:3 ^7??777(s 


© 


24 GO SUB 9000: LET N=100! LET M=0 

_25 PRINT PAPER 2? INK O; AT 0.5; 11 i ?????7??Ñ a j AT 1.5;*? MAR CA? ?” j AT 2,5¡ *? _ 

? “ i AT 3,5| ■&???*%???*“ 

26 'PRINT'"PAPER^’Zy INK” O! AT“'0,17j ,f Í??????77 ñ" ¡ AT 1, 17! "7 RECORD ?" ; AT 2,17; " ?— 

?“ i AT 3, 17; , ‘¿???$%??? A, ‘ 

27 PRINT AT 18, 3f " i ????????????Ñ" i AT 19,3;"? TIEMPO: ?" JAT 20,3; “¿?????**A?? 

« 

28 PRINT AT 13,18i “ ¡????????K";AT 19,13;“?PQT: ?"|AT 20,13;"6???*%???^" 

30 PRINT AT 12,20;" ab ab ab“;AT 13,19;“i????????K";AT 14,19;"? ? ?-;AT 15 

,19; 11 ¿???? ???? A " ___ 

50 PRINT AT 14.22 i N > "KG. 11 i LET C=97: PRIN T _ A T 2,7 ¡ M i “ Ky " | AT 2. 19 i R i " Ky * 

90 GO SUB 9100 

95 BEEP 1/2,10: BEEP 1/20,30: PAUSE O 
100 LET P=0: FOR 2=0 TO 100: PRINT AT 19,12tZ 

102 LET H=0: IF INKEYSO"" THEN LET H=1 

103 IF C<103 THEN IF P>N/3 THEN LET C=103: GO SUB 9100 

104 IF C<i09 THEN IF P>N/2 THEN LET C = 109: GO SUB 9100 

- H) 5 PRINT AT 19,23 i P --- 

106 IF C<115 THFN IF P>N THEN LET C = 1L5¡ GO SUB 9 1 0 0 
110 IF INKEYSÍ >"" THEN LET H=H+1 
120 IF H«1 THEN LET P=P+5 
200 NEXT 2 

210 IF P>N THEN LET N=N: LET N=N+5: PRINT AT 14,20í" ■ ; AT 14,22; "VALIDO'* : BEEP 


# 
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1,10: LET C=C0DE “a": G0 SUB 9100: FOR G=1 TO 5: GO SUB 9000: NEXT G: GO TO 25 
0 220 IF P<N THEN PRINT AT 14,20|" "¡AT 14,22¡* NULO *: BEEP 1,-10: LET C=CODE “a 
GO SUB 9100 
300 LET p=ro 

m 340 IF p>=r THEN LET r=p: PRINT AT 11,105* NUEVO RECORD *; FOR H-l TO 10: GO SU 
B 9000: NEXT H 

1010 FOR A=1 TO 60 STEP 3; BEEP 1/50,a: NEXT A 

— 1020 PRINT AT 11,75"OTRA PARTIDA? (S/N>" 

™ 1030 PAUSE 43: BEEP 1/50,30: IF INKEY*~*S* OR INKEY*=*S* THEN CLS : GO TO 5 
1040 IF INKEY*=*r, “ OR INKEY*=“N" THEN RANDOMIZE USR O 
1050 GO TO 1030 

0 9000 FOR F=6 TO 9: POKE 23607,RND#5Q: PRINT INK 25 PAPER 5 5 AT F,0; ‘ABCDHE172H123 
456789ABCDEFGHIJKLM": BEEP 1/200,-10+RND*20: NEXT F: POKE 23607,250: RETURN 
9100 PRINT AT 14,3;CHR* CíCHR* (C + D5AT 15,8¡CHR* (C+2) 5 CHR* (C + 315AT 16,8;CHR* 
0 (C + 4 > 5 CHR* (C + 5) 

9200 RETURN 

9998 BORDER O: POKE 23693,7: CLS : LOAD *"fn“ 5 11 *pc "CODE i LOAD **m* 115 “peas“SCRE 

— EN* : GO TO 2 _ 

V 9999 SAVE "PESOS*CODE 16384,PEEK 23627+25ó*PEEK 23628-16382: GO TO 1 




CON ESTE PROGRRHfi 
PODRAS REPASAR UN 
PEQUEÑO VOCABULARIO 
DE INGLES, PRACTICO 
PARA TUS ESTUDIOS 
CARGANDO 







1 IF INKEY90"" THEN GO TO 9999 

2 BORDER 1: CLS : PRINT AT 10,10;“PARA LA CINTA": PAUSE 200: CLS 
S POKE USR "r>",24: GO TO 900 

10 LET AC=0¡ IF T=1 THEN LET I*=“ESPA?OLA*í LET J*="INGLESA* 

12 I F T=2 THEN LE T JS="ESPA ?OLA": LET I*=* INGLESÓ!_ 

15 FOR A=1 TO 20 

¡StmCS : FRlS’T AT O, o; PAPER 3,,5AT 0,2| ■CUESTIONARIO PREGUNTA: *|A 
25 LET 1=1000+INT (RND*5): RESTORE 1 

30 LET c=INT <RND*10>: FOR b=0 TO c: READ a$,b$: NEXT b 
40 IF t = l THEN LET p*=a*: LET r-*=b* 

42 IF t=2 THEN LET p*=b*: LET r*=a* 

45 PRINT : PRINT * A QUE PALABRA “¡I*,’’"CORRESPONDE LA PALABRA *}J*¡“:" 

46 PR IN T : P RINT. INK 5;X AB 16- LEN.. P*/2 i P*- 

50 INPUT “RESPUESTA? *; LINE S*_ 
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ÓO IF SÍOR* THEN PRINT : PRINT ■" HAS FALLADO LA RESPUESTA ERA! " ’ ’ J TAB ló-LEN 
RS/2J INK 6}R*¡ FOR N=5 TO 1 STEP -1! BEEP .2,Ni NEXT N: BEEP 1,-iO 

62 IF S*=R* THEN PRINT i PRINT * CORRECTO l_A RESPUESTA ES:" 1 ’i TAB ló-LEN R*/ 
2; INK 3¡R*: LET AC=AC+l: FOR N=1 TO 60 STEP 4: OUT 254,N: BEEP 1/100,N; NEXT N: 
BORDER 1 
70 NEXT A 
SO PAUSE 43; CLS 

90 PRINT AT 0,0¡“ RESULTADOS ■ * 

92 PRINT ’■ ACIERTOS.JAC’** FALLOS.“iZO-AC'*" . PORC 

ENTAJE- ■;AC*.2íPUNTUACION....“;AC/2 

100 BEEP 1/50,30 

900 PRINT AT 10,Oí PAPER 7,,iAT 10,12¡"INGLES * 

901 PRINT ; PRINT " 1- CUESTIONARIO INGLES-ESPA?QL“’’» 2- CUESTIONARIO ESPA20L- 
INGLES* ' * " 3- LISTADO DE VOCABULARIO" '» * 4- FIN" 

902 PRINT : PRINT INVERSE 1,, 

910 IF INKEY*«"1" THEN LET T=l! GO TO 10 

911 IF XNKEY*="2" THEN LET T=2: GO TO 10 

912 IF INKEY#*"3* THEN CLS ¡ RESTORE 1000: FOR A-l TO 5: PRINT AT 3,0j" 

VOCABULARIO FOR B=1 TO 10; READ A*,B*i -PRINT AS,B*: NEXT Bl PRIN 

T : PRINT PAPER 3,,: PAUSE O: BEEP 1/50,30; CLS : NEXT Ai GO TO 900 
915 IF INKEYS="4“ THEN RANDOMIZE USR O 
920 GO TO 910 
999 STOP 

1000 DATA "ONE","UNO", "TWO", "DOS* ,"THREE","TRES","FOUR","CUATRO",“FIVE","CINCO*, 
"SIX","SEIS",“SEVEN","SIETE",“EIGHT","OCHO","NINE“,"NUEVE","TEN","DIEZ" 

1001 DATA "TABLE", "MESA", "CHAIR*, "SILLA "WINDOW","VENTANA","CAR ","COCHE", "DOOR* 
,“PUERTA","BOOK","LIBRO",“PEN*,"PLUMA","PENCIL",“LAPIZ","INK","TINTA",“BAG*,"CAR 
TERA" 

1002 DATA "FIRST*,“PRIMERO*,"SECOND","SEGUNDO","THIRD","TERCERO","FOURTH*,“CUART 
O",“FIFTH","QUINTO","SIXTH","SEXTO*,"SEVENTH","SEPTIMO","EIGHTH“,"OCTAVO","NINTH 
","NOVENO","TENTH",“DECIMO" 

1003 DATA "TO BE","SER","TO HAVE"TENER","TO BEGIN"EMPEZARTO CUT*,"CORTAR" 
i"TO DRINK","BEBER","TO EAT"COMERTQ BUY*,“COMPRAR‘TO BREAK","ROMPER‘,"TO 
CAN","PODER","TO GO","IR" 

1004 DATA "JANUARY","ENERO",“MARCH","MARZO*,“APRIL","ABRIL","MAY","MAYO","JUNY", 
"JUNIO","JULY","JULIO","SEPTEMBER","SEPTIEMBRE","OCTOBER",“OCTUBRE","NOVEMBER"," 
NOVIEMBRE","DECEMBER","DICIEMBRE" 

9999 BORDER O: SAVE "INGLES"CODE 16384,PEEK 23627+256*PEEK 23628-16382: 60 TO 1 





SI PREFIERE SUSCRIBI 
POR^TELEFONO... 


■ i M4E 
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GRÁFICOS 
COLORES Y MUSICA 
en é ZX Spectrum 



Una función importante que 
puede cumplir un microordena¬ 
dores la de dibujaren la pantalla 
distintos tipos de gráficos. 

El control de esta posibilidad 
ofrece al usuario la ocasión de 
afianzar su práctica en la pro¬ 
gramación y la de estimular su 
imaginación y creatividad en la 
exploración de la capacidad del 
microordenador en la realiza¬ 
ción de dibujos. Además, esta 
máquina es capaz de generar 
una amplia gama de colores en 
la pantalla y ele producir sonidos 
y música. 

La utilización simultánea de 
todas estas posibilidades en un 


mismo programa conduce a una 
creativa actividad de análisis y 
síntesis, a despertar facultades 
estéticas y a disfrutar del ejerci¬ 
cio de las mismas. Aunque ini¬ 
cialmente todos estos procesos 
se ponen en marcha en un con¬ 
texto tónico, su posterior desa¬ 
rrollo supone el fomento de as¬ 
pectos educativos de indudable 
valor formativo, a cuyo afianza¬ 
miento desea contribuir este li¬ 
bro. 

En mayor o menor medida, 
casi todos Jos microordenado¬ 
res poseen Ja capacidad de ge¬ 
nerar GRAFICOS, COLORES y 
MUSICA. Sin embargo, el modo 
y la forma de presentarlos son 
específicos de cada microorde¬ 
nador; y dado que en el momen¬ 
to actual el más difundido es el 
ZX Spectrum , los programas in¬ 
cluidos en este libro están pre¬ 
prados para funcionar en este 
microordenador. No obstante, 
es factible adaptarlos a otros 
: microordenadores, para lo cual 
i se sugiere consultar el manual 
correspondiente. 

En este libro, como en el ante¬ 
rior de la misma serie, se ha se¬ 
guido el método inductivo, in¬ 
troduciendo las instrucciones 
de GRAFICOS, COLORES y MU¬ 
SICA a partir de programas sen¬ 
cillos, todos ellos resueltos. 
También se ha procurado dar a 
esta obra un enfoque interdisci¬ 
plinar, mediante el desarrollo de 
programas relacionados con 
otras áreas de conocimiento. 

LOS AUTORES. 

P.V.P. 750ptas. 


JUEGOS 
DINAMICOS 
RARA EL 
ZX SPECTRUM 


HJürtftUi 



En muchos aspectos, un or¬ 
denador e$ el contrincante ideal 
para jugar. 


Incapaz de vanagloriarse 
cuando gana, elegante perde¬ 
dor, es incansable, paciente y 
siempre dispuesto, A pesar de 
que no puede dar este sentido 
humano, que puede ser una 
gran parte del placer de jugar 
con otras personas, el ordena¬ 
dor parece ser el compañero 
perfecto con el que pasar las ho¬ 
ras. 

Sin importar porqué «pensó» 
que compraba su Spectrum, no¬ 
sotros le retamos a gastar al 
menos parte de su tiempo de 
computador jugando: aquí es 
donde viene este libro. Aquí en¬ 
contrará una gran variedad de 
juegos, desde juegos de tablero 
como AJEDREZ y DAMAS, ac¬ 
ción en prograr as como JGG- 
GER y NIVEL CiNCO, a nuestro 
gran juego le aventuras: LA 


VENGANZA DEL CASTILLO EN¬ 
CANTADO. Hemos propuesto 
interesantes programas de gran 
mérito, así como otros que le 
aportarán sugerencias e ideas 
para aplicara sus propios traba¬ 
jos. 

Para ayudarle a obtener el 
máximo provecho de este libro, 
hemos escrito instrucciones de¬ 
talladas de los juegos. En la 
mayoría de los casos la intro¬ 
ducción presenta el programa lí¬ 
nea por línea, explicando los tru¬ 
cos que los programadores han 
usado sugiriéndole cómo pue¬ 
den ser aplicados a sus propios 
programas y juegos. Algunos 
programas también contienen 
indicaciones de cómo modifi¬ 
carlos según sus deseos, mejo¬ 
rándolos y desarrollándolos 
como quiéra¬ 
la mayoría de los programas 
de este libro fueron escritos por 
Tim Rogers, Paul Toland y Tim 
HartnelL Rogers y Toland son 
estudiantes (Rogers en Londres 
y Toland en Belfas!) y merecen 
ser felicitados por la calidad y 
originalidad de su trabajo, que 
se refleja en los programas que 
hemos seleccionado en este li¬ 
bro. En la página 1 69 puede en¬ 
contrar una lista completa de 
los autores de los programas. 

Es hora de empezar a entrar 
código a su Spectrum para que 
pueda disfrutar estos juegos 
que merecen realmente el adje¬ 
tivo de «dinámicos» 

Tim Hartnell 
Londres, marzo de 1983 

P.V.P. 1.200 ptas. 


* La mayar variedad de libros de micro in formática, 
capaces do satisfacer todas sus necesidades, ya sean 
profesionales, familiares, culturales... 

• I ado tipo de información bibliográfica sobre micro- 
ordenadores, desde AMSTRAD a Sinclair QL 

TARJETA DE PEDIDO l~i M I I I 

Domicilio de envíos: 



Nombre v añedidos .............._..... 

Domicilio ......*.... 

C. P .Ciudad. 


Provincia.... 

... NA... 


.. Pta. 


Ruego sírvanse remitirme CONTRA REEMBOLSO los siguientes libros: 


Número 

Cantidad 

TITULO y autor 

Importe 






























Fecha ./.... Fdo.: 
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LAPIZ OPTICO 
CRAYON OPTIQUE 
LICHTGRIFFEL 


LA MAS ALTA CALIDAD EN LAPIZ OPTICO, MAS UN PROGRAMA DE ALTA CALIDAD. 

LO MEJOR AL MEJOR PRECIO 

DRAGON - SPECTRUM - COMMODORE 64 - VIC 20 - TANDY 



• DIBUJA CIRCULOS. 

• DIBUJA LINEAS. 

• DIBUJA CON MANOS LIBRES. 

• RELLENA AREAS DE COLOR. 

• GUARDA Y CARGA DIBUJOS A Y 
DESDE LA CINTA (CASSETTE). 

• COMPLETA FACILIDAD DE BORRADO. 

• ENTRADA Y PROCESO DE DATOS. 

• SELECCION DE MENU Y CONTROL. 

• IDEAL PARA JUEGOS. 



Distribuidor: GTS 


Bailén, 20 - 1.° Izda. 
(91) 266 66 01/266 66 02 
28005 MADRID 




















DISPONIBLE PARA ZX SPECTRUM 


V 


Graphis, S.A Publicidad 




















